home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 43.zip / Superbase pro 2.1 disk 2.adf / arraytest.sbp < prev    next >
Text File  |  1987-01-30  |  903b  |  44 lines
  1. SBP
  2.  ÿ½     This program demonstrates two dimensional numeric array handling.
  3.  
  4.  ÿ×x%(10,5),a%(10),b%(10),c%(5)
  5.  ÿ²"9999999999999."
  6.  ÿ‡
  7.  ÿ{ÿÔ"COL |  ";:ÿ›c%ÿ1ÿq5:ÿ{ÿ(c%,2);"   ";:ÿ±c%:ÿ{"| ";ÿÔ"Row Sum | Average  |"
  8.  ÿ{ÿÔ"ROW |"ÿG("-",54)
  9.  
  10.  tt%ÿ0
  11.  ÿ›r%ÿ1ÿq10
  12.  t%ÿ0
  13.  ÿ›c%ÿ1ÿq5
  14.  ÿ¼x%(r%,c%)
  15.  t%ÿt%ÿx%(r%,c%):c%(c%)ÿc%(c%)ÿx%(r%,c%)
  16.  ÿ±c%
  17.  a%(r%)ÿt%ÿ5:b%(r%)ÿt%:tt%ÿtt%ÿt%
  18.  ÿ±r%
  19.  
  20.  ÿ›r%ÿ1ÿq10
  21.  ÿ{ÿÔÿ(r%,2);" |";ÿÔÿe;
  22.  ÿ›c%ÿ1ÿq5
  23.  ÿ{ÿ(x%(r%,c%),4);" ";
  24.  ÿ±c%
  25.  ÿ{ÿÔ"  |  ";ÿ(b%(r%),4);"  | ";ÿ(a%(r%),4);"    |"
  26.  ÿ±r%
  27.  ÿ{ÿG("-",59);ÿ¯;ÿÔ"TOT |";
  28.  ÿ›c%ÿ1ÿq5:ÿ{ÿ(c%(c%),4);" ";:ÿ±c%:ÿ{"  |"ÿ(tt%,6);"  | "ÿ(tt%ÿ50,4);"    |"
  29.  ÿ{ÿG("=",59)
  30.  
  31.  ÿŠ1,3,5,7,9
  32.  ÿŠ2,4,6,8,10
  33.  ÿŠ5,10,15,20,25
  34.  ÿŠ10,20,30,40,50
  35.  ÿŠ20,40,60,80,100
  36.  ÿŠ30,60,90,120,150
  37.  ÿŠ40,80,120,160,200
  38.  ÿŠ50,100,150,200,250
  39.  ÿŠ100,200,300,400,500
  40.  ÿŠ500,1000,1500,2000,2500
  41.  ÿ’
  42.  
  43.  
  44.